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AAAAAAAAA 

AAAAAAAAA 
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AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
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AAA RAD 
AAA AAA 
AAA AAA 
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Message definitions 16-SEP p-foa. 9: q: 7 VAX=-11 Message a Pasey P 
66-SEP-1984 11:54:14 DISKSVMSMASTER: CPASRTL.SRCJPASMSG.MSG; 1 
-TITLE PASSMSGDEF VAX-11 Pascal Run-Time Messages 
-IDENT '1-004' ' File PASMSG.MSG, Edits SBL1004 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
. * 
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!* INCLUSION OF THe ABOVE pith NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX=-11 Pascal Run-Time Library 
ABSTRACT: 


This module contains the message definitions for VAX-11 Pascal V2 
Run-Time messages. 


AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


Original. SBL 1 aoe t= -1981 


Remove PASS_ INVEIE PE since it is no longer used. SBL_ 2-July-1982 
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8 
Reserve message numbers 3000-3999 for SeaPascal. SBL 25-Mar-1983 
1-004 = Change text of BUGCHECK to refer to User's Guide. SBL 17-Aug-1983 
00000021 ¢ FACILITY PAS,33 /SYSTEM 
47 !+ 
48 ! WOTEs ott VAX-11 Pascal V1 Run-Time Library used message numbers between 
$3 ! 32 and 128. To avoid conflicts, start VAX-11 Pascal V2 numbers at 200. 
51 
2¢ '¢ 
53! Messages 201 to 999 are 1/0 errors which can be continued by means of 
ee ; Error:=Continue in the Pascal statement. 
56 ! The STATUS return value is <message_number - 200> 


| 


H 
PASSMSGDEF VAX-11 Pascal Run-Time Messa 19 “SEP ia oR 9 £90: ¢ VAX-11 Message Sets Page 2 | Pi 
“SEP-19 1: 4 DISKSVMSMASTER: CPASRTL.SRCJPASMSG.MSG;1 
7! 
34 | weawerennerenereretet NOTE teeterereererenrereereeee | 
‘ « for scesapee 201-999, which all have the PFV * 
60 | * address placed as the first FAO argument, the * 
61 ! ®* FAO control “the't MUST include the ‘'!+"' edit * 
62! * directive as the first directive in the string.* 
| 65 ! * Failure to do this will result in the PFV * 
64 ! * being used incorrectly in the result text. ‘ 
65 ! PRARRRRARSBASASAAASARRAARASERARAAARARASERRRRARARAESRR SAS SG | 
! 
| 9 i 
68 SEVERITY FATAL 
69 
70 !¢ 
4 Messages from OPEN and CLOSE. 
48 BASE 200 
00218644 BASE <> ! Never signalled 
0021864C 76 F ILALROPE <file is already open!+!/ File “"!AC'’ Filename ‘'!AS''>/FAO_COUNT=3 
A -LITERAL PASSK _F ILALROPE=(PAS$_F ILALROPE-PAS$_BASE)a-3 
00218654 79 ERRDUROPE <error during OPEN!+!/ File ‘!AC’' Filename _‘'!AS''>/FAO_COUNT=3 
+ -LITERAL PASS$K_ERRDUROPE=(PAS$_ERRDUROPE-PASS$_BASE)a-3 
0021865C 82 FILNOTFOU <file not found!+!/ File “!AC'’ Filename ‘'!AS''>/FAO_COUNT=3 Tt 
o »LITERAL PASS$K_F ILNOTFOU=(PAS$_F ILNOTFOU-PAS$_BASE)a-3 Mt 
00218664 85 INVFILSYN <invalid filename 2g ee ile “"!AC'' Filename ‘'!AS''>/FAO_COUNT= | 
86 -LITERAL PASSK_INVF ILSYN=(PAS$_INVF ILSYN-PAS$_BASE)a-3 
0021866C 88 ACCMETINC <ACCESS_METHOD specified is incompatible with this file!+!/ File on | 
4 eLITERAL PAS$K_ACCMETINC=(PAS$_ACCMETINC-PAS$_BASE)a-3 
00218674 91 RECLENINC <RECORD_LENGTH specified is inconsistent with this file!+!/ File“! 
8 »LITERAL PASSK RECLENINC= (PAS$_RECLENINC-PAS$_BASE)a-3 
0021867C 94 RECTYPINC <RECORD_TYPE sees ified is inconsistent with this file!+!/ File “!AC 
4 «LITERAL PASSK_RECTYPINC=(PAS$_RECTYPINC-PAS$_BASE) a-3 
00218684 97 ORGSPE INC <ORGANIZATION specified is inconsistent with this file!+!/ File "!A 
+ eLITERAL PAS$K_ORGSPE INC=(PAS$_ORGSPE INC-PAS$_BASE)a-3 
0021868C 100 INVKEYDEF <invalid key definition'+!/ File “!AC'’ Filename ‘"!AS''>/FAO_COUNT=3 
i »LITERAL PASSK_INVKEYDEF =(PAS$_INVKEYDEF-PAS$_BASE)a-3 
00218694 198 KEYDEF INC <KEY(!'+!UL) definition is inconsistent with this file!/ File "*!AC"’ 
is LITERAL PASS$K_KEYDEF INC=(PAS$_KEYDEF INC-PAS$_BASE)a-3 
0021869C 106 KE YNOTDEF <KEY('+!UL) is not defined in this file!/ File "!AC’’ Filename "“!AS 
ist »LITERAL PASSK. KEYNOTDEF= (PASS. KEYNOTDEF-PASS._ BASE) a-3 
002186A4 109 INVRECLEN <invalid record len RS IN of !+!UL!/ File “!AC’’ Filename "‘!AS'>/FAO_C 
WY LITERAL PASSK_INVRECLEN=(PAS$_INVRECLEN-PASS "BASE Ja=3 
002186AC 6 TEXREQSEQ textfiles require seqy uential organization and access!+!/ File ‘!AC 
11 LITERAL PASSK _TEXREQSEQ=(PAS$_TEXREQSEQ-PAS$_BASE )a-3 
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| PASSMSGDEF VAX=11 Pascal Run-Time Messa 16-SEP pa 198s 91:90:47 VAX-11 Message a ixset Page 3 = 
6-SEP=1984 11:54:14 DISKSVMSMASTER:CPASRTL.SRCJPASMSG.MSG; 1 
114 
00218684 115 F ILNAMREQ <F ILE _NAME poout ree for this HISTORY or DISPOSITION!+!/ File ‘"!AC"’ 
118 LITERAL PASSK_F ILNAMREQ=(PASS$_F ILNAMREQ-PAS$_BASE)a- 
0021868C 118 FILALRCLO <file is already closed!+!/ File “!AC'’ Filename ‘'!AS''>/FAO_COUNT=3 | 
13 «LITERAL PASSK_F ILALRCLO=(PASS$_F ILALRCLO=PAS$_BASE)a-3 | 
002186C4 121 ERRDURCLO <error during CLOSE!+!/ File "IAC Filename ''!AS''>/FAO_COUNT=3 | 
: ¢ «LITERAL PASS$SK_ERRDURCLO=(PAS$_ERRDURCLO=PASS$_BASE) a-3 
18 | 
: 2 x Textfile READ errors. 
, j BASE 230 
00218734 155 AMBVALENU <!+""tAS'' is an ambiguous value for enumerated type ‘"!AC''!/ Record ! 
139 eLITERAL PASSK " AMBVALENU= (PA $_AMBVALENU-PAS$_BASE) a-35 
0021873C 136 INVSYNENU <!+""!AD" is invalid syntax for an enumerated value!/ Record !UL Fi 
132 »LITERAL PASSK_ INVSYNENU= (PASS. INVSYNENU-PAS$_BASE )a-3 
00218744 135 INVSYNINT <!+#""'tAS"' is invalid syntax for an integer value!/ Record !UL File 
136 eLITERAL PASSK_INVSYNINT=(PAS$_INVSYNINT=PAS$_BASE)a~3 
0021874C 138 INVSYNREA <!+""!AS"' is invalid syntax for a real value!/ Record !UL File ‘!AC. 
+44 eLITERAL PAS$K_ INVSYNREAS(PASS- INVSYNREA-PAS$_BASE)a-3 
00218754 141 INVSYNUNS <!+""!AD'' is invalid syntax for an unsigned value!/ Record !UL File 
126 eLITERAL PAS$K_INVSYNUNS=(PAS$_INVSYNUNS-PAS$_BASE)a-3 
0021875C 144 NOTVALTYP <'+"taS" is a value of type “HAC''!/ Record !UL File "!AC’’ Fil. 
142 «LITERAL PASS$K “NOTVALTYP= (PAS$_NOTVALTYP-PAS$_BASE)a-3 
00218764 147 ERRDURPRO <error Curing Beep Ags FRADU File “!AC'' Filename ‘!AS''>/FAO_COUNT=3 | 
re eLITERAL PAS$K_ERRDURPRO=(PAS$_ERRDURPRO-PAS$_BASE)a-3 
150 
151 !¢ 
13 i Textfile WRITE errors. 
134 .BASE 250 
00218704 156 ERRDURWRI <error as WRITELN!+!/ File ‘!AC’' Filename ‘'!AS''>/FAO_COUNT=3 
4 »LITERAL PASS$K_ERRDURWRI=(PAS$_ERRDURWRI-PAS$_BASE)a-3 
12, ! Message 251 is no longer used - available for reuse 
19) - BASE 252 
002187E4 188 LINTOOLON <line is too pong exceeded record length by_!+!UL character!%S!/ F 
164 LITERAL PAS$K_LINTOOLON=(PAS3_LINTOOLON~PAS$_BASE)a-3 
002187EC 166 we qv ipei¢ eases Nee Width or Digits specification is not allowed!+!/ File ""!A 
+H -LITERA PASSK_NEGWIDDIG=(PAS$_NEGWIDDIG-PAS$_BASE)a- 
002187F4 169 WRI INVENU <WRITE of an invalid enumerated value!+!/ File “!AC’’ Filename “"!AS 
170 LITERAL PASSK_WRIINVENU=(PAS$_WRI INVENU-PAS$_BASE)a-3 
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00218874 


0021887C 


00218884 


0021888C 


00218894 


00218964 


0021896C 


00218974 


0021897C 


00218984 


0021898C 


00218994 


0021899C 


002189A4 


002189AC 
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69:3) 7:31 VAX-11 Messa 
4: D : CPASRTL.SRCJPASMSG.MSG; 1 


14 DISKSVMSMAST 


; Direct and Keyed access errors. 


'¢ 


- BASE 


KEYVALINC 
» LITERAL 


KEYDUPNOT 
«LITERAL 


KEYCHANOT 
«LITERAL 


CURCOMUND 
«LITERAL 


FAIGETLOC 
»LITERAL 


Miscellaneous errors. 


«BASE 


DELNOTALL 
LITERAL 


ERRDURDEL 
» LITERAL 


ERRDURF IN 
LITERAL 


ERRDURGET 
»LITERAL 


ERRDURPUT 
LITERAL 


cr ati 
-LITERA 


ERRDURREW 
LITERAL 


ERRDURTRU 
»LITERAL 


ERRDURUNL 
»LITERAL 


ERRDURUPD 
»LITERAL 


270 

<key value is incompatible with this file’s key !#!UL!/ File ‘IAC’ 
PASSK_KEYVALINC=(PAS$_KEYVALINC-PAS$_BASE) a@-3 

<key field duplication is not allowed!+!/ File "!AC'' Filename ‘"!AS 
PASSK_KEYDUPNOT=(PAS$_KEYDUPNOT=PAS$_BASE)a-3 


n 
DU 
coer field change is not allowed!+!/ File “!AC"’ 
PASSK_KEYCHANOT=(PAS$_KEYCHANOT-PAS$_BASE )a-3 


<current component is undefined for DELETE or UPDATE!+!/ 
PASS$K_CURCOMUND=(PAS$_CURCOMUND-PAS$_BASE)a-3 


<failed to GET locked component!+!/ File ‘"!AC'' 
PASSK _FAIGETLOC=(PAS$_FAIGETLOC-PAS$_BASE)a-3 


Filename ‘"!AS*'>/FAO 


300 


<DELETE is not allowed for a sequential ergegtese ten file!+!/ File | 


PAS$K_DELNOTALL=(PAS$_DELNOTALL=PAS$_BASE ) 


<error during DELETE!+!/ File “!AC*’ Filename ‘*!AS''>/FAO_COUNT=3 
PAS$K_ERRDURDEL=(PAS$_ERRDURDEL-PAS$_BASE) a-3 


<error during FIND or FINDK!+!/ File ‘!AC"’ 
PAS$K_ERRDURF IN=(PAS$_ERRDURF IN-PAS$_BASE)a-3 


<error during GET!+!/ File “!AC'’ Filename ‘"!AS''>/FAO_COUNT=3 
PAS$K_ERRDURGE T=(PAS$_ERRDURGE T-PAS$_BASE)a-3 


<error during PUT!+!/ File ‘!AC’’ Filename ‘"!AS''>/FAO_COUNT=3 
PAS$K_ERRDURPUT=(PAS$_ERRDURPUT-PAS$_BASE)a-3 


<error Guring RESET or RESETK!+!/ File ‘!AC'’ 
PASS$K_ERRDURRES=(PAS$_ERRDURRES-PAS$_BASE) a-3 


<error during REWRITE'+!/ File ‘"!AC’’ Filename ‘*!AS'>/FAO_COUNT=3 
PASS$SK_ERRDURREW=(PAS$_ERRDURREW-PAS$_BASE)a-35 


<error during TRUNCATE!+!/ File ““!AC'' Filename ‘'!AS*'>/FAO_COUNT=3 
PASSK_ERRDURTRU=(PAS$_ERRDURTRU-PAS$_BASE) a-3 


<error during UNLOCK!+!/ File “!AC’’ Filename ‘‘!AS'>/FAO_COUNT=5 
PAS$K_ERRDURUNL =(PAS$_ERRDURUNL~PAS$_BASE )a-3 


<error during UPDATE!'+!/ File “!AC'’ Filename ‘*!AS'>/FAO_COUNT=3 
PASSK_ERRDURUPD=(PAS$_ERRDURUPD-PAS$_BASE )a-3 


Filename ‘""!AS''>/FA 


File “!AC’’ 


Filename *!AS"'>/FAO_COU 


Filename "!AS'>/FAO_C 


v 
EB 
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00218984 


002189BC 


002189¢4 


002189CC 


002189D4 


002189DC 


002189E4 


002189EC 


002189F4 


002189FC 


00218A04 


00218A0C 


00218A14 


00218A1C 


00218A24 


00218A2C 


00218A34 
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GE TAF TEOF 
»LITERAL 


INSNOTALL 
»LITERAL 


INSVIRMEM 
»LITERAL 


INVARGPAS 
«LITERAL 


LINVALEXC 
«LITERAL 
REWNOTALL 
- LITERAL 


RESNOTALL 
»LITERAL 


TRUNOTALL 
LITERAL 


UPDNOTALL 
» LITERAL 


VAX=-11 Mess gage 0 Page 5 


~SEP=1984 DISKSVMSMASTER: PASRIL. SRCJPASMSG.MSG; 1 


<file is not opens d for direct access!+!/ File '!AC’’ Filename ‘"!AS 
PASSK_FILNOTDIR= (PASS. F ILNOTDIR=-PAS$_BASE)a-3 
<file is not in Generation mode!+!/ File ‘!AC'' Filename ‘!AS''>/FAO 
PASSK_F ILNOTGEN=(PAS$_F ILNOTGEN=PAS$_BASE)a-3 | 
<file is not in Inspection mode!+!/ File '!AC'' Filename ‘‘!AS''>/FAO. 
PASSK_FILNOTINS =(PASS$_FILNOTINS -PAS$_BASE)a-3 | 
<file is not opened for keyed access!+!/ File ‘!AC’' Filename ‘‘!AS'’ 
PASSK_F ILNOTKEY=(PAS$_F ILNOTKEY=PAS$_BASE)a- 
<file is not open!+!/ File “"!AC’’ Filename ‘'!AS''>/FAO_COUNT=3 
PAS$K_F ILNOTOP = (PASS. F ILNOTOPE-PAS$_BASE )a-3 
<file is not sequential organization'!+!/ File ‘!AC'’ Filename ‘!AS"’ 
PASSK_F ILNOTSEQ=(PAS$_F ILNOTSEQ-PAS$_BASE)a-3 
<file is not a textfile!+!/ File “!AC’' Filename ‘'!AS''>/FAO_COUNT=3 | 
PASSK _FILNOTTEXS (PASS. F ILNOTTEX=PAS$ BASE) a-3 
<Generation mode is not allowed for a READONLY file!+!/ File ‘!ACc’’ | 
PASS$K_GENNOTALL=(PAS$_GENNOTALL=PAS$_BASE)a-3 


<GET otvenpted after end-of-file!+!/ File "!AC"’ Filename “LASS /FA| 
PAS$K_GETAF TEOF =(PAS$_GE TAF TEOF -PAS$_BASE)a-3 | 


steeeet res mode is not allowed for a WRITEONLY file!+!/ File ‘!AC"’ 
PAS$K_INSNOTALL=(PAS$_INSNOTALL-PAS$_BASE)a-3 


| 
<insufficient virtual port thea File "IAC Filename ‘'!AS''>/FAO_CO | 
PAS$K_INSVIRMEM=(PAS$_INSVIRMEM-PAS$_BASE)a-3 | 
File ‘AC’ 


<invalid argument to Pascal Run-Time Library!+!/ Filena| 


PAS$K_INVARGPAS=(PAS$_INVARGPAS-PASS$_BASE )a-3 


<LINELIMIT value exceeded!+!/ File "!AC*’ Filename ‘*!AS''>/FAO_COUNT 
PASSK_LINVALEXC=(PAS$_LINVALEXC-PAS$_BASE)a-3 


<REWRITE is not allowed for a shared file!+!/ File ‘!AC'’ Filename 
PASS$K_REWNOTALL=(PAS$_REWNOTALL-PAS$_BASE)a-3 | 
<RESET is not allowed on an unopened internal file!+!/ File “!ACc’ | 
PAS$K_RESNOTALL=(PAS$_RESNOTALL=PAS$_BASE)a- | 
<TRUNCATE is not allowed for a shared file!+!/ File "!AC’’ Filename | 


PASS$K_TRUNOTALL=(PAS$_TRUNOTALL~PAS$_BASE)a-3 


<UPDATE is not allowed for a sequential argeptzetton file!+!/ File 
PASSK_UPDNOTALL=(PAS$_UPDNOTALL-PAS$_BASE) a-3 


Message numbers 1000-1999 are for messages without a valid PFV. 
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| PASSMSGDEF VAX-11 Pascal Run-Time Messa 1g-sEp- age 1:60: 3 VAX-11 Message v04-00 Page 6 
6-SEP-1984 11:54:14 DISKSVMSMASTER: CPASRTL.SRCIJPASMSG.MSG; 1 

5 !- : 
; . BASE 1000 ; 
00219F 44 8 INVFILVAR <invalid file variable at location !XL>/FAO_COUNT=1 : 
00219F4C 89 FILALRACT <file “!AC’’ is already active>/FAO_COUNT=1 : 
0 1 oF». 90 ERRDURNEW <error during NEW> ; 
0219F 5C 91 ERRDURDIS <error during DISPOSE> : 
0219F 64 35 ERRDURMAR <error during MARK> : 
00 1or ot S ERRDURREL <error during RELEASE> : 
00219F 74 94 T <non-local GOTO requested! +!+>/FA0se > 
00219F7C 95 GOTOFAILED <non=local GOTO failed> s 
00219F 84 sao HALT <HALT procedure called> : 
00219F 8C 9 BUGCHECK <internal consistency failure !UL in Pascal Run-Time Library!/ : 
00219F94 298 NEGDIGARG <negative Digits argument to BIN, HEX or OCT is not allowed> : 
00219F 9C $00 CONTINUE <1/0 error dismissed by user handler! +>/FA0=1 | : 
01 !+ | 3 
308 ! Messages 2000 and up are for errors detected in the compiled code at : 
035 ! run-time. The compiled code has in the instruction stream a byte value : 
304 ! (0-63) which denotes the specific message to signal (2000-2063). The ; 
305 ! particular exception conditions recognized by PASS$HANDLER as being : 
306 ! run-time error checking exceptions, and the locations of the code byte, | F 
306 } are as follows: : 
. | e 
44 Exception Instruction Code byte location | : 
311 | SS$_OPCDEC HALT -BYTE after HALT r 
312 ! SS$_SUBRNG INDEX TSTB #x (current instruction) | : 
$17 SS$_INTOVF any TSTB #x (current instruction) | : 
315 : 
318 «BASE 2000 F 
0021BE84 318 ARRINDVAL <array index value is out of range> 3 
OO021BE8C 319 ARRNOTCOM <conformant array is not compatible> ; 
0021BE94 320 ARRNOTSTR <conformant array is not a string> 3 
OO21BE9C 321 CASSELVAL <CASE selector value is out of range> : 
0021BEA4 355 CONCATLEN <string concatenation has more than 65535 characters> 3 
OO21BEAC 32 PADLENERR <PAD Length error> : 
0021BEB4 324 PTRREFNIL <pointer reference to NIL> 3 
O0021BEBC 325 SETASGVAL <set eee tonmens value has element out of range> 3 
OO21BEC4 326 SETCONVAL <set constructor value is out of range> : 
OO21BECC 327 STRASGLEN <string assignment length error> 3 
ORs 1BEDe $58 STRCOMLEN <strings comparison Length error> 3 
0021BEDC $2 SUBASGVAL <subrange assignment value is out of range> 3 
0021BEE4 ; 0 SUBSTRSEL <SUBSTR selection error> : 
0021BEEC 31 VARINDVAL cveryin index value is greater than current Length> 3 
0021BEF4 335 ORDVALOUT <ordinal value is out of range> ; 
34 !+ 3 
35 ! If the byte code in the instruction stream is PAS$K_IGNORE, PASSHANDLER 3 
$$ simply does a CONTINUE. 3 
8 3 
33 LITERAL PASS$K_IGNORE=63 : 
41 !+ : 


i 
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} 
¢ ! LARARRARALARARASLAAAARAREARARAAALAAAAALSSEESLA SALSA ALES SE | 
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! Message numbers 3000-3999 are reserved for SeaPascal. 


4 
44 ' PARRRAASAAASASARAAAALALAAALEASALALALELESSR ESE SARA A SASS GS 
le } 
| 29 15 | 
rk Define Literals which can be used to test for specific groups of messages. 
50 | | 
51 eLITERAL PASS$K_MSGV2L0=200 ! Lowest V2 message number 
26 LITERAL PASS$$K_MSGCONTLO=200 ! Lowest continuable error 
5 »LITERAL PASS$K_MSGCONTHI=999 ! Highest continuable error 
54 »LITERAL PASSS$K _MSGPFVHI=999 ! Highest message with a valid PFV 
322 LITERAL PASS$K_MSGCHKBAS=2000 =! Base of run-time checking messages | 
357 '4 | 
$28 £ Define STATUS codes for EOF and SUCCESS | 
360 | 
361 «LITERAL PAS$SK_EOF = =-1 
366 LITERAL PAS$K_SUCCESS = 0 | 
364 - END 
365 | 
There were 0 errors, By ym g 0 informational messages issued. 
MESSAGE /F ILE_NAME= PASMSG/LIS= 1é$: PASNSGPTR/OB = OBJ$:PASMSGPTR MSRCS: PASMSG 


ENT CORPORATION 
ND PROPRIETARY | 
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